home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
geos-archive
/
GEOS-D64
/
GEOS Mega ASM (19xx)(-).d64
/
list5-2
< prev
next >
Wrap
Text File
|
2019-04-13
|
3KB
|
133 lines
if .p
t "TopSym"
t "TopMac"
endif
:Start
lda #0
jsr SetPattern
LoadB dispBufferOn,ST_WR_FORE!ST_WR_BACK
ldy #5
::10
lda RecTabelle,y
sta r2L,y
dey
bpl :10
jsr Rectangle
LoadW r0,Men}Tabelle ; Zeiger auf Men}Tabelle
lda #0 ; Maus auf 1. Men}pkt
jsr DoMenu ; Men} darstellen
LoadW r0,IconTable ; Zeiger auf Icons
jsr DoIcons ; Icon darstellen
rts ; R}cksprung zur MainLoop
:RecTabelle
b 0
b 199
w 0
w 319
:Men}Tabelle
b 0 ; obere y-Koord. (byte)
b 14 ; untere y-Koord. (byte)
w 0 ; linke x-Koord. (word)
w 102 ; rechte x-Koord. (word)
b 3 ! HORIZONTAL
w geosText
b SUB_MENU
w geosSubTabelle
w ZeitText
b MENU_ACTION
w ZeitReaktion
w VerlassenText
b MENU_ACTION
w EnterDeskTop
:VerlassenText
b "verlassen",NULL
;------------Hauptmen}punkt geos----------------
:geosText
b "geos",NULL
:geosSubTabelle
b 15 ; obere y-Koord. (byte)
b 29 ; untere y-Koord. (byte)
w 0 ; linke x-Koord. (word)
w 40 ; rechte x-Koord. (word)
b 1 ! VERTICAL
w InfoText
b MENU_ACTION
w InfoReaktion
:InfoText
b "Info",NULL
:InfoReaktion
jsr GotoFirstMenu
LoadW r0,InfoDiaTab
jsr DoDlgBox
rts
:InfoDiaTab
b $81 ; Standard
b DBTXTSTR
b 10
b 25
w InfoText1
b DBTXTSTR
b 10
b 40
w InfoText2
b DBTXTSTR
b 10
b 55
w InfoText3
b OK
b 16
b 70
b NULL
:InfoText1 b BOLDON,OUTLINEON,"BlackScreen"
b PLAINTEXT,BOLDON,NULL
:InfoText2 b "Ein Beipiel f}r eine",NULL
:InfoText3 b "Application",NULL
;------------Hauptmen}punkt Zeit----------------
:ZeitText b "Zeit",NULL
:ZeitReaktion
jsr ReDoMenu
rts
;------------Iconbehandlung---------------------
:XIcon = 12
:YIcon = 154
:IconTable b 1 ; 1 Icon
w 0 ; keine neue Maus postion !
b 0 ; (Y-Position Maus)
w IconGrafik ; Zeiger auf kompr. Bitmap
b XIcon ; X-Position Icon
b YIcon ; Y-Position Icon
b IconBreite ; Breite des Icon s
b IconH|he ; H|he des Icons
w IconRoutine ; Iconroutine
:IconGrafik
:IconBreite = .x
:IconH|he = .y
:IconRoutine
rts